home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / 3rdparty / ybt / startybt.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-30  |  497b  |  34 lines
  1. /*Start YBT*/
  2. /* ©1996 by Daniel Wolf */
  3.  
  4.  
  5. Flyer="PROJECT_REXX_PORT"
  6. Switcher="ToasterARexx.port"
  7. call remlib(Switcher)
  8. call remlib(Flyer)
  9. addlib(Flyer,0)
  10. addlib(Switcher,0)
  11.  
  12. IF SHOW(port,"YBT") then do
  13.  Switcher(TOWB)
  14.  ADDRESS COMMAND
  15.  WAIT 0
  16.  ADDRESS YBT
  17.  FRONT
  18.  end
  19.  
  20. IF ~SHOW(port,"YBT") then do
  21. b=CROUTONSINPROJECT()
  22. if b>0 then do        /* there MUST be some croutons in the project! */
  23.  Switcher(TOWB)
  24.  ADDRESS COMMAND
  25.  run "toaster:ybt"
  26.  end
  27. end
  28.  
  29. call remlib(Switcher)
  30. call remlib(Flyer)
  31.  
  32. exit
  33.  
  34.